Multi-Column Combobox And Date Data Type
===

I am trying to make a program that calculates for how long someone is awake.The user just inputs the time he woke up.But i have came across 2 problems:
1º:I need to make a combobox for the user to choose between PM and AM but i dont know how to make a combobox with multiple columns
2º:Hor can i make calculations with Date type variabels?Because i need to get the time that is right now and subtract by the time the user woke up.
heres the code for now:
    Public Class Form1
    Dim wokeup As Date
    Dim now As Date
    Dim awake As Date

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        now = DateAndTime.TimeOfDay
        ComboBox1.Text = "AM"


    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        wokeup = TextBox1.Text
        Label2.Text = wokeup

    End Sub
End Class
